inherited frmTamanhos: TfrmTamanhos
  Left = 339
  Top = 210
  Width = 531
  Height = 486
  AutoScroll = True
  Caption = ''
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Top = 415
    Width = 523
  end
  inherited Panel2: TPanel
    Width = 523
    Height = 415
    inherited Panel3: TPanel
      Width = 521
      Caption = 'Tamanhos'
      inherited GroupBox1: TGroupBox
        Left = 442
      end
    end
    inherited Panel4: TPanel
      Width = 521
      Height = 373
      object Label1: TLabel [0]
        Left = 18
        Top = 15
        Width = 33
        Height = 13
        Caption = 'Codigo'
      end
      object Label2: TLabel [1]
        Left = 18
        Top = 56
        Width = 48
        Height = 13
        Caption = 'Descri'#231#227'o'
      end
      inherited DBGrid1: TDBGrid
        Top = 156
        Width = 513
        TabOrder = 3
      end
      inherited SbHints: TStatusBar
        Top = 350
        Width = 513
      end
      object EdtCodigo: TDBEdit
        Left = 19
        Top = 31
        Width = 44
        Height = 21
        Hint = 'C'#243'digo do Tamanho'
        CharCase = ecUpperCase
        DataField = 'TAM_CODIGO'
        DataSource = DtSrc
        Enabled = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        OnExit = EdtCodigoExit
      end
      object EdtNome: TDBEdit
        Left = 17
        Top = 70
        Width = 208
        Height = 21
        Hint = 'Descri'#231#227'o do Tamanho'
        CharCase = ecUpperCase
        DataField = 'TAM_NOME'
        DataSource = DtSrc
        Enabled = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
        OnExit = EdtNomeExit
      end
    end
  end
  inherited DtSrc: TDataSource
    DataSet = SQLC_Tamanhos
    Left = 96
    Top = 224
  end
  inherited DtSrcDBGrid: TDataSource
    Left = 240
    Top = 208
  end
  object SQLC_Tamanhos: TSQLClientDataSet
    CommandText = 'select * from TAMANHOS where tam_codigo=:pcodigo;'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftString
        Name = 'pcodigo'
        ParamType = ptInput
      end>
    DBConnection = DtmGeral.ConexaoBanco
    Left = 97
    Top = 283
    object SQLC_TamanhosTAM_CODIGO: TStringField
      FieldName = 'TAM_CODIGO'
      Required = True
      Size = 3
    end
    object SQLC_TamanhosTAM_NOME: TStringField
      DisplayLabel = 'NOME'
      FieldName = 'TAM_NOME'
      Size = 35
    end
  end
end
